home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / MacHTTP 1.3 / MacHTTP Software / Documentation / AppleEvent & AppleScript Info / Home / stack.txt < prev   
Encoding:
Text File  |  1994-04-28  |  3.8 KB  |  111 lines
  1. -- stack: in
  2. -- format: 10 (HyperCard 2)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=128, y1=105, x2=640, y2=447)
  7. -- screen: Rect(x1=0, y1=0, x2=832, y2=624)
  8. -- card dimensions: w=512 h=342
  9. -- scroll: x=0 y=0
  10. -- background count: 1
  11. -- first background id: 2713
  12. -- card count: 1
  13. -- first card id: 2927
  14. -- list block id: 4006
  15. -- print block id: 0
  16. -- font table block id: 3427
  17. -- style table block id: 3201
  18. -- free block count: 3
  19. -- free size: 9472 bytes
  20. -- total size: 16384 bytes
  21. -- stack block size: 3584 bytes
  22. -- created by hypercard version: 0x02108000
  23. -- compacted by hypercard version: 0x02108000
  24. -- modified by hypercard version: 0x02108000
  25. -- opened by hypercard version: 0x02108000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0xDD1A274F
  67. ----- HyperTalk script -----
  68. --This stack demonstrates how HyperCard can be used with MacHTTP to
  69. --provide searching functions.
  70.  
  71. -- This stack is used by placing a copy of HyperCard 2.1 or greater,
  72. -- (or an alias to the HyperCard applicaiton) named
  73. -- HyperCard.exe in the MacHTTP folder with this stack, named "Home".
  74. -- The URL to access the stack is http://your.address/HyperCard.exe
  75. -- Note that this script doesn't return a properly formatted HTTP/1.0
  76. -- header. See the AppleScript examples for how to do this.
  77.  
  78. on appleEvent class, eventID, sender
  79.   put "Handling event!" & sender
  80.   if class & eventID is "WWWŒ©srch" then --this is the MacHTTP event code
  81.     request ae data
  82.     if the result is not empty then
  83.       reply "Error -- no data!."
  84.       exit appleEvent
  85.     end if
  86.     put it into searchStr
  87.     put it into field "data"
  88.     get GlobalWWWSearch(searchStr)  -- process it
  89.     reply it  -- send back the reply
  90.   else pass appleEvent  -- we don't recognize this event; pass it on
  91. end appleEvent
  92.  
  93. -- A skeleton search function. Notice it returns the search prompt
  94. -- when the searchStr parameter is empty.
  95.  
  96. function GlobalWWWSearch searchStr
  97. if searchStr is empty then
  98.   return "<HEAD><ISINDEX><TITLE>Search Documents</TITLE></HEAD>" & "<h1>Enter a single keyword</h1><p>Partial words are OK.<p>"
  99. else
  100.   -- get search(searchStr) -- whatever you need to do to searcg is done here
  101.   return "<HEAD><TITLE>Search Results</TITLE></HEAD>" & "<H1>Search</H1>The following documents contain " & searchStr & ":<P>" & it & "<P>"
  102. end if
  103. end GlobalWWWSearch
  104.  
  105. on openStack
  106.   set the userlevel to 5
  107.   pass openStack
  108. end openStack
  109.  
  110.  
  111.